﻿Public Class Textb
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Код появления окна по середине основного
        Me.Left = Form1.Left + 90
        Me.Top = Form1.Top + 100
        'Открытие нужного текстбокса
        TextBox1.Text = Form1.texta
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Закрытие
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Сохранение
        If Form1.textnum = 1 Then
            Form1.TextBox8.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 2 Then
            Form1.TextBox11.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 3 Then
            Form1.TextBox12.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 4 Then
            Form1.TextBox13.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 5 Then
            Form1.TextBox14.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 6 Then
            Form1.TextBox22.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 7 Then
            Form1.TextBox30.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 8 Then
            Form1.TextBox33.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 9 Then
            Form1.TextBox35.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 10 Then
            Form1.TextBox37.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 11 Then
            Form1.TextBox39.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 12 Then
            Form1.TextBox41.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 13 Then
            Form1.TextBox43.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 14 Then
            Form1.TextBox45.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 15 Then
            Form1.TextBox31.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 16 Then
            Form1.TextBox32.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 17 Then
            Form1.TextBox34.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 18 Then
            Form1.TextBox36.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 19 Then
            Form1.TextBox38.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 20 Then
            Form1.TextBox40.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 21 Then
            Form1.TextBox42.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 22 Then
            Form1.TextBox44.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        If Form1.textnum = 23 Then
            Form1.TextBox23.Text = TextBox1.Text.Replace(vbCrLf, "\r\n")
        End If
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Гененрирование $g тега
        Dim per As String
        Dim pes As String
        per = InputBox("Введите значение отображаемое у мужских персонажей в игре: (пример:_$gсправился:справилась;)", "Ввод значений для $g")
        pes = InputBox("Введите значение отображаемое у женских персонажей в игре: (пример:_$gсправился:справилась;)", "Ввод значений для $g")
        TextBox1.Text = TextBox1.Text & "$g" & per & ":" & pes & ";"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Гененрирование $N тега
        TextBox1.Text = TextBox1.Text & "$N"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'Гененрирование $B$B тега
        TextBox1.Text = TextBox1.Text & "$B$B"
    End Sub
End Class